home *** CD-ROM | disk | FTP | other *** search
/ Clinton - Portrait of Victory / PORTRAIT OF VICTORY.BIN / clntpc16 / eagle2.txt < prev    next >
Text File  |  1992-12-29  |  13KB  |  736 lines
  1. ; The Candidate main menu
  2. start2:
  3. pload ehcan 1
  4. cfade 9 0 414 p1
  5. pfree 1
  6. pload cantp 1
  7. cfade 9 112 85 p1
  8. pfree 1
  9. cload ebcan 1 1
  10. cfade 9 0 30 1
  11. cfree 1
  12. cload ebnav 1 1
  13. cfade 9 0 0 1
  14. cfree 1
  15. menu21:
  16. set gonum 21
  17. mn11:
  18. waitkey
  19. getkey k
  20. if @k==1
  21.   set num 1
  22.   xbkg
  23.   goto menu211
  24. else
  25.   if @k==2
  26.     goto menu212
  27.   else
  28.     if @k==3
  29.       set num 1
  30.       xbkg
  31.       goto menu213
  32.     else
  33.       if @k==chr(104)||@k==chr(72)
  34.     goto help
  35.       else
  36.     if @k==chr(112)||@k==chr(80)
  37.       xbkg2
  38.       link eagle menu1
  39.     else
  40.       if @k==chr(101)||@k==chr(69)
  41.         xbkg
  42.         pload edexit 1
  43.         cfade 9 192 201 p1
  44.         pfree 1
  45.         mn11b:
  46.         waitkey
  47.         getkey k
  48.         if @k==chr(13)
  49.           exit
  50.         else
  51.           if @k==chr(27)
  52.         xbkg
  53.         pload cantp 1
  54.         cfade 9 112 85 p1
  55.         pfree 1
  56.         goto menu21
  57.           else
  58.         goto mn11b
  59.           endif
  60.         endif
  61.       else
  62.         goto mn11
  63.       endif
  64.     endif
  65.       endif
  66.     endif
  67.   endif
  68. endif
  69.  
  70. ; Kramer text selection display
  71. menu211:
  72. set gonum 211
  73. mn211:
  74. pload etxtx 1
  75. cfade 9 40 95 p1
  76. pfree 1
  77. color 15
  78. fload times15 1
  79. fgaps 1 5 3
  80. set buf readfile(cktxt$@num$.doc)
  81. window 60 95 580 390
  82. text @@buf
  83. . farfree(@buf)
  84. window
  85. set center on
  86. ffree 1
  87. fload ibm8 1
  88. text 0 120 "Page "$@num$" of 14"
  89. text 0 110 "Press <PGUP> for next or <PGDN> for prior."
  90. set center off
  91. ffree 1
  92. mn211b:
  93. waitkey
  94. getkey k
  95. if @k==2
  96.   goto menu212
  97. else
  98.   if @k==3
  99.     set num 1
  100.     xbkg
  101.     goto menu213
  102.   else
  103.     if @k==chr(104)||@k==chr(72)
  104.       goto help
  105.     else
  106.       if @k==chr(112)||@k==chr(80)
  107.     xbkg2
  108.     link eagle menu1
  109.       else
  110.     if @k==chr(101)||@k==chr(69)
  111.         xbkg
  112.         pload edexit 1
  113.         cfade 9 192 201 p1
  114.         pfree 1
  115.         mn211c:
  116.         waitkey
  117.         getkey k
  118.         if @k==chr(13)
  119.           exit
  120.         else
  121.           if @k==chr(27)
  122.         xbkg
  123.         goto mn211
  124.           else
  125.         goto mn211c
  126.           endif
  127.         endif
  128.     else
  129.       if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
  130.         if @num==14
  131.           set num 1
  132.           goto menu211
  133.         else
  134.           set num @num+1
  135.           goto mn211
  136.         endif
  137.       else
  138.         if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
  139.           if @num==1
  140.         set num 14
  141.         goto menu211
  142.           else
  143.         set num @num-1
  144.         goto mn211
  145.           endif
  146.         else
  147.           goto mn211b
  148.         endif
  149.       endif
  150.     endif
  151.       endif
  152.     endif
  153.   endif
  154. endif
  155.  
  156. ; Speeches (Video) selection display
  157. menu212:
  158. set gonum 212
  159. mn212:
  160. pload ebkg 1
  161. pfade 9 1
  162. pfree 1
  163. pload canspch 1
  164. palette 1
  165. cfade 9 120 150 p1
  166. pfree 1
  167. mn212b:
  168. color 0
  169. rect 147 212 306 331
  170. waitkey
  171. getkey k
  172. if @k==chr(109)||@k==chr(77)
  173.   pload ebkg 1
  174.   palette 1
  175.   pfade 9 1
  176.   pfree 1
  177.   goto start2
  178. else
  179.   if @k==1
  180.     pload canspch1 1
  181.     cfade 9 120 150 p1
  182.     pfree 1
  183.     set num 1
  184.     set abort on
  185.     mn2124:
  186.     set k ""
  187.     set m ""
  188.     pload canva$@num 1
  189.     cfade 9 144 211 p1
  190.     pfree 1
  191.       if @num==1
  192.     cdplay 50 14
  193.     timer
  194.     waitkey 1400
  195.       endif
  196.       if @num==2
  197.     cdplay 51 20
  198.     timer
  199.     waitkey 2000
  200.       endif
  201.       if @num==3
  202.     cdplay 52 16
  203.     timer
  204.     waitkey 1600
  205.       endif
  206.       getkey m
  207.       xstop
  208.       cdstop
  209.     if @num==3
  210.       pload canspch 1
  211.       cfade 9 120 150 p1
  212.       pfree 1
  213.       goto mn212b
  214.     else
  215.       set num @num+1
  216.       goto mn2124
  217.     endif
  218.   else
  219.     if @k==2
  220.       pload canspch1 1
  221.       cfade 9 120 150 p1
  222.       pfree 1
  223.       set num 1
  224.       set abort on
  225.       mn2125:
  226.       set k ""
  227.       set m ""
  228.       pload canvb$@num 1
  229.       cfade 9 144 211 p1
  230.       pfree 1
  231.     if @num==1
  232.       cdplay 53 50
  233.       timer
  234.       waitkey 5000
  235.     endif
  236.     if @num==2
  237.       cdplay 54 41
  238.       timer
  239.       waitkey 4100
  240.     endif
  241.     getkey m
  242.     xstop
  243.     cdstop
  244.       if @num==2
  245.     pload canspch 1
  246.     cfade 9 120 150 p1
  247.     pfree 1
  248.     goto mn212b
  249.       else
  250.     set num @num+1
  251.     goto mn2125
  252.       endif
  253.     else
  254.       if @k==3
  255.     pload canspch1 1
  256.     cfade 9 120 150 p1
  257.     pfree 1
  258.     set num 1
  259.     set abort on
  260.     mn2126:
  261.     set k ""
  262.     set m ""
  263.     pload canvc$@num 1
  264.     cfade 9 144 211 p1
  265.     pfree 1
  266.       if @num==1
  267.         cdplay 55 36
  268.         timer
  269.         waitkey 3600
  270.       endif
  271.       if @num==2
  272.         cdplay 56 15
  273.         timer
  274.         waitkey 1500
  275.       endif
  276.       if @num==3
  277.         cdplay 57 19
  278.         timer
  279.         waitkey 1900
  280.       endif
  281.       getkey m
  282.       xstop
  283.       cdstop
  284.     if @num==3
  285.       pload canspch 1
  286.       cfade 9 120 150 p1
  287.       pfree 1
  288.       goto mn212b
  289.     else
  290.       set num @num+1
  291.       goto mn2126
  292.     endif
  293.       else
  294.     if @k==4
  295.       pload canspch1 1
  296.       cfade 9 120 150 p1
  297.       pfree 1
  298.       set num 1
  299.       set abort on
  300.       mn2127:
  301.       set k ""
  302.       set m ""
  303.       pload canvd$@num 1
  304.       cfade 9 144 211 p1
  305.       pfree 1
  306.         cdplay 58 90
  307.         timer
  308.         waitkey 9000
  309.         getkey m
  310.         xstop
  311.         cdstop
  312.         pload canspch 1
  313.         cfade 9 120 150 p1
  314.         pfree 1
  315.         goto mn212b
  316.     else
  317.       goto mn212b
  318.     endif
  319.       endif
  320.     endif
  321.   endif
  322. endif
  323.  
  324. ; Resume text selection display
  325. menu213:
  326. set gonum 213
  327. mn213:
  328. pload etxtx 1
  329. cfade 9 40 95 p1
  330. pfree 1
  331. color 15
  332. fload times15 1
  333. fgaps 1 5 3
  334. set buf readfile(crtxt$@num$.doc)
  335. window 60 95 580 390
  336. text @@buf
  337. . farfree(@buf)
  338. window
  339. set center on
  340. ffree 1
  341. fload ibm8 1
  342. text 0 115 "Page "$@num$" of 3"
  343. text 0 105 "Press <PGUP> for next or <PGDN> for prior."
  344. set center off
  345. ffree 1
  346. mn213b:
  347. waitkey
  348. getkey k
  349. if @k==1
  350.   set num 1
  351.   xbkg
  352.   goto menu211
  353. else
  354.   if @k==2
  355.     goto menu212
  356.   else
  357.     if @k==chr(104)||@k==chr(72)
  358.       goto help
  359.     else
  360.       if @k==chr(112)||@k==chr(80)
  361.     xbkg2
  362.     link eagle menu1
  363.       else
  364.     if @k==chr(101)||@k==chr(69)
  365.         xbkg
  366.         pload edexit 1
  367.         cfade 9 192 201 p1
  368.         pfree 1
  369.         mn213c:
  370.         waitkey
  371.         getkey k
  372.         if @k==chr(13)
  373.           exit
  374.         else
  375.           if @k==chr(27)
  376.         xbkg
  377.         goto mn213
  378.           else
  379.         goto mn213c
  380.           endif
  381.         endif
  382.     else
  383.       if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
  384.         if @num==3
  385.           set num 1
  386.           goto mn213
  387.         else
  388.           set num @num+1
  389.           goto mn213
  390.         endif
  391.       else
  392.         if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
  393.           if @num==1
  394.         set num 3
  395.         goto mn213
  396.           else
  397.         set num @num-1
  398.         goto mn213
  399.           endif
  400.         else
  401.           goto mn213b
  402.         endif
  403.       endif
  404.     endif
  405.       endif
  406.     endif
  407.   endif
  408. endif
  409.  
  410. help:
  411. pload apatch 1
  412. cfade 9 0 0 p1
  413. pfree 1
  414. pload eclbb 1
  415. cfade 9 0 29 p1
  416. pfree 1
  417. xbkg
  418. pload edhelp 1
  419. cfade 9 32 74 p1
  420. pfree 1
  421. fload ibm8 1
  422. fgaps 1 4 2
  423. set buf readfile(candhlp.doc)
  424. window 65 355 575 100
  425. color 1
  426. text @@buf
  427. window
  428. . farfree(@buf)
  429. ffree 1
  430. hlp1:
  431. waitkey
  432. getkey k
  433. if @k==chr(13)
  434.   if @gonum==21
  435.     xbkg
  436.     pload cantp 1
  437.     cfade 9 112 85 p1
  438.     pfree 1
  439.     cload ebcan 1 1
  440.     cfade 9 0 30 1
  441.     cfree 1
  442.     cload ebnav 1 1
  443.     cfade 9 0 0 1
  444.     cfree 1
  445.     goto menu21
  446.   else
  447.     xbkg
  448.     cload ebcan 1 1
  449.     cfade 9 0 30 1
  450.     cfree 1
  451.     cload ebnav 1 1
  452.     cfade 9 0 0 1
  453.     cfree 1
  454.     goto menu$@gonum
  455.   endif
  456. else
  457.   goto hlp1
  458. endif
  459.  
  460. xbkg:
  461. cload ebkgx 1 1
  462. cfade 9 0 68 1
  463. cfree 1
  464. return
  465.  
  466. xbkg2:
  467. pload eclbb 1
  468. cfade 9 0 29 p1
  469. pfree 1
  470. cload ebkgx 1 1
  471. cfade 9 0 68 1
  472. cfree 1
  473. pload eclhx 1
  474. cfade 9 0 414 p1
  475. pfree 1
  476. return
  477.  
  478. xStop:
  479. if len(@m)
  480.     cdstop
  481.     pload ebkg 1
  482.     pfade 9 1
  483.     pfree 1 
  484.     set abort off
  485.     pop start2
  486. else
  487.     return
  488. endif
  489.  
  490. ;
  491. ;       CDINIT
  492. ;
  493. ;       Check for CD-ROM driver and setup @drive
  494. ;
  495. cdinit:
  496.     int 0x2f 0x1500,0
  497.     if @bx
  498.         global drive chr(@cx+asc("A"))
  499.     else
  500.         global drive ""
  501.     endif
  502.     return
  503.  
  504. cdplay:
  505.     cdtrack @1 @3 @4 @5
  506.     cdcmd   132,@0,@2*75
  507.     cdcheck @0,cdplay
  508.     return
  509.  
  510. ;
  511. ;       CDPLAYTO TRACK MINUTES SECONDS FRAMES TRACK MINUTES SECONDS FRAMES
  512. ;
  513. ;
  514. cdplayto:
  515.     cdtrack @1 @2 @3 @4
  516.     local   begin @0
  517.     cdtrack @5 @6 @7 @8
  518.     local   end @0
  519.     cdcmd   132,@begin,@end-@begin
  520.     cdcheck @0,cdplayto
  521.     return
  522.  
  523. ;
  524. ;       CDSTOP
  525. ;
  526. ;       Stop playing immediately
  527. ;
  528. cdstop:
  529.     cdcmd   133,0,0
  530.     cdcheck @0,cdstop
  531.     return
  532.  
  533. ;
  534. ;       CDRESUME
  535. ;
  536. ;       Resume playing from where we issued a CDSTOP
  537. ;
  538. cdresume:
  539.     cdcmd   136,0,0
  540.     cdcheck @0,cdresume
  541.     return
  542.  
  543. ;
  544. ;       CDSEEK TRACK {MINUTES SECONDS FRAMES}
  545. ;
  546. ;       Seek the CD player head to a track to minimize play startup time.
  547. ;       Parameters ar